perm filename TEST1[CMP,LSP] blob sn#193620 filedate 1975-12-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	R COMPLR 45↔
C00003 ENDMK
C⊗;
R COMPLR 45↔
N↔
(SPECIAL UPPERFLAG)↔
(SETQ UPPERFLAG NIL)↔
(COMPL COMPLR)
β

R LISP 30↔
Y3000 14400   475 
(SETQ UPPERFLAG NIL)↔
(DE ISSUBR (X) (GET X @ISSUBR))↔
(DSKIN(COMPLR.LAP))↔
(CINIT)↔
β

SAVE COMPLR↔
β